home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / awk / join.awk < prev    next >
Text File  |  2005-10-13  |  375b  |  17 lines
  1. # join.awk --- join an array into a string
  2. #
  3. # Arnold Robbins, arnold@gnu.org, Public Domain
  4. # May 1993
  5.  
  6. function join(array, start, end, sep,    result, i)
  7. {
  8.     if (sep == "")
  9.        sep = " "
  10.     else if (sep == SUBSEP) # magic value
  11.        sep = ""
  12.     result = array[start]
  13.     for (i = start + 1; i <= end; i++)
  14.         result = result sep array[i]
  15.     return result
  16. }
  17.